home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / COMPRESS.LSP < prev    next >
Text File  |  1992-03-14  |  613b  |  16 lines
  1. ;Drawing compression program (carefull !! make sure you want to.)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (DEFUN C:COMPRESS()
  7. (setq oer  *error*  *error*  err2)
  8. (PRINC "\nPlease standby..........Compressing drawing file.")
  9. (PRINC "\nAfter compression, drawing will automatically be recalled.")
  10. (COMMAND "LAYER" "T" "*" "ON" "*" "")
  11. (command "zoom""all")
  12. (SETQ WP1(GETVAR "VSMIN"))
  13. (SETQ WP2(GETVAR "VSMAX"))
  14. (SETQ DWG(GETVAR "DWGNAME"))
  15. (COMMAND "WBLOCK" DWG "Y" "" "0,0" "C" WP1 WP2 "" "script" "COMPRESS"))
  16.